home *** CD-ROM | disk | FTP | other *** search
/ Aminet 43 / Aminet 43 (2001)(GTI - Schatztruhe)[!][Jun 2001].iso / Aminet / demo / mag / SceneArchives.lha / install_SASU next >
Text File  |  2001-03-05  |  3KB  |  104 lines
  1. (complete 0)
  2.  
  3. (set VAR_LANGUAGE (getenv "Language"))
  4.  
  5. ; English strings, used as standard
  6.  
  7. (set TXT_INTRO        "\nSASU will now be installed.\n\nIf you do not like this program, just remove its drawer to deinstall.\n")
  8. (set TXT_PATH         "In which directory shall the program directory be created?")
  9. (set TXT_PATH_HELP    "\nAn own directory named "SASU" will be created in the given directory.\nYou can remove this directory later to deinstall SASU.\n")
  10. (set TXT_MAIN         "Copying Program files ...")
  11. (set TXT_MAIN_HELP    "\nAll the files that are needed are copied.\n")
  12. (set TXT_FILE_DOC     "Scene.txt")
  13.  
  14. ; Supported languages
  15.  
  16. (
  17.  if (= VAR_LANGUAGE "deutsch") (
  18.   (set TXT_INTRO        "\nSASU wird nun installiert.\n\nWenn Ihnen dieses Programm nicht gefällt, löschen sie zur Deinstallation einfach das Verzeichnis.\n")
  19.   (set TXT_PATH         "In welchem Verzeichnis  soll das Programmverzeichnis angelegt werden?")
  20.   (set TXT_PATH_HELP    "\nEin eigenes Verzeichnis mit dem Namen "SASU" wird im angegebenen Verzeichnis erzeugt.\nSie können dieses Verzeichnis später zur Deinstallation von SASU löschen.\n")
  21.   (set TXT_MAIN         "Kopiere Programmdateien ...")
  22.   (set TXT_MAIN_HELP    "\nAlle nötigen Dateien werden kopiert.\n")
  23.   (set TXT_FILE_DOC     "scene.txt")
  24.  )
  25. )
  26. (
  27.  if (= VAR_LANGUAGE "español") (
  28.   (set TXT_INTRO        "\nSe va ha instalar SASU.\n\nSi no le gusta este programa, borre el cajón para desinstalarlo.\n")
  29.   (set TXT_PATH         "¿En dónde desea crear el cajón 'SASU'?")
  30.   (set TXT_PATH_HELP    "\nSe creará un cajón llamado 'SASU' en la ubicación indicada.\nSi desea, más tarde, desinstalar 'SASU', borre este cajón.\n")
  31.   (set TXT_MAIN         "Copiando ficheros...")
  32.   (set TXT_MAIN_HELP    "\nSe han copiado todos los ficheros necesarios.\n")
  33.   (set TXT_FILE_DOC     "scene.txt")
  34.  )
  35. )
  36. (
  37.  if (= VAR_LANGUAGE "italiano") (
  38.   (set TXT_INTRO        "\nSASU ora sta per essere installato.\n\nSe non ti piace questo programma, rimuovi il suo cassetto per deinstallarlo.\n")
  39.   (set TXT_PATH         "In quale directory deve essere creata la directory del programma?")
  40.   (set TXT_PATH_HELP    "\nUna directory chiamata "SASU" sarà creata.\nTu puoi rimuovere questa directory più tardi per deinstallare SASU.\n")
  41.   (set TXT_MAIN         "Sto copiando i file ...")
  42.   (set TXT_MAIN_HELP    "\nTutti i file che erano necessari sono stati copiati.\n")
  43.   (set TXT_FILE_DOC     "scene.txt")
  44.  )
  45. )
  46.  
  47. (complete 10)
  48.  
  49. (message TXT_INTRO)
  50.  
  51. ; Get the directory to install to
  52.  
  53. (complete 20)
  54.  
  55. (
  56.  set VAR_DEST(
  57.    askdir (prompt  TXT_PATH)
  58.           (help    TXT_PATH_HELP)
  59.           (default @default-dest)
  60.   )
  61. )
  62. (set VAR_DEST (tackon VAR_DEST "SASU"))
  63. (set @default-dest VAR_DEST)
  64.  
  65. (complete 40)
  66.  
  67. ; And now copy all the files
  68.  
  69. (
  70.  copyfiles (prompt TXT_MAIN)
  71.            (source "Scene")
  72.            (dest   VAR_DEST)
  73. )
  74. (
  75.  copyfiles (prompt TXT_MAIN)
  76.            (source "Scene.data1")
  77.            (dest   VAR_DEST)
  78. )
  79. (
  80.  copyfiles (prompt TXT_MAIN)
  81.            (source "Scene.data2")
  82.            (dest   VAR_DEST)
  83. )
  84.  
  85. (complete 80)
  86.  
  87. ; Don't forget the correct documentation
  88.  
  89. (
  90.  copyfiles (source TXT_FILE_DOC)
  91.            (dest   VAR_DEST)
  92.            (infos)
  93. )
  94.  
  95. ; And copy the icon for the drawer
  96.  
  97. (
  98.  copyfiles (source "Scene.info")
  99.            (dest   VAR_DEST)
  100. )
  101.  
  102.  
  103. (complete 100)
  104.